

<script language="SpeedScript">

  /* PREPROCESSOR Definitions */



  DEF INPUT PARAMETER buf-noerr AS INTEGER NO-UNDO.
  DEF INPUT PARAMETER buf-lang  AS INTEGER NO-UNDO.

  DEF VAR lab-bouton AS   CHARACTER EXTENT 5               NO-UNDO.

  DEF VAR i          AS   INTEGER                          NO-UNDO.

  FIND erreur WHERE erreur.noerr = buf-noerr
                AND erreur.lang  = buf-lang NO-LOCK NO-ERROR.
</script>

<script language="SpeedScript">

  DO i = 1 to NUM-ENTRIES(erreur.libel):

</script>

    <input type="button" value="`ENTRY(i,erreur.libel)`" onclick="javascript:ctrl_champs();" name="bouton" class="button"/>

<script language="SpeedScript">

END.

</script>

